(occur): Pay attention to multibyte characters.

diff --git a/lisp/replace.el b/lisp/replace.el
index 086fea6745506fb639eae99797c71aee8e53caad..0cb0f0486c5358839a42d0916808c713e29fcd66 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -440,7 +440,7 @@ It serves as a menu to find any of the occurrences in this buffer.
                  (insert-buffer-substring buffer start end)
                  (set-marker final-context-start 
                              (- (point) (- end (match-end 0))))
-                 (backward-char (- end start))
+                 (goto-char (- (point) (- end start)))
                  (setq tem nlines)
                  (while (> tem 0)
                    (insert empty ?:)